COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program copy(input*,output)
C00003 ENDMK
C⊗;
program copy(input*,output);
var
    ch: char;

function eopage: boolean;
    var
	a: packed array[1:5] of char;
    begin
    getlinenr(a);
    eopage := a = '     ';
    end (*eopage*);

begin
while not eof do
    if eoln then
	begin
	readln;
	    if eopage then
		begin
		page;
		readln;
		end (*if eopage*)
	    else
		writeln;
	end
    else  (*not eoln*)
	begin
	read(ch);
	write(ch);
	end  (*not eoln*);
end (*of program*).